﻿Imports System.Text

<TestClass()>
Public Class ParseTextTests

    <TestMethod()>
    Public Sub StartBlockTest()

        Const blockName As String = "starBlock"
        Const data As String = blockName & "="

        Dim result As LineData

        result = Model.ParseText(data)

        Assert.AreEqual(Model.DataLineType.StartBlock, result.LineType)
        Assert.AreEqual(blockName, result.BlockName)

    End Sub

End Class
